Examples: i) Clam Garden, Lizard Island

2023-08-25

Example coralseed scenario from Clam Garden, a lagoonal site at Lizard Island (nGBR), December 2022. The model simulates a point source release of 1000 particles from a 5*5m area within the site across a 6.95hrs period.

#devtools::install_github("marine-ecologist/coralseed",  lib = "/Users/rof011/coralseed")
#devtools::document("/Users/rof011/coralseed")

library(coralseed)
library(ggplot2)
library(tidyverse)
library(sf)
library(tmap)
library(widgetframe)

seascape <- seascape_probability(reefoutline=reef_map, habitat=benthic_map)

particles <- seed_particles(input="ClamGarden_PointSource_OpenLagoon_01", seascape=seascape,
                            limit_time=6.95, competency.function = "exponential", 
                            limit.time = 720, simulate.mortality = "typeI", 
                            simulate.mortality.n = 0.1, probability="additive",
                            return.plot=FALSE, silent=TRUE)

settlers <-  settle_particles(particles, probability="additive", silent=TRUE)

map_output <- map_coralseed(seed_particles=particles, settle_particles=settlers, 
              seascape_probability=seascape, restoration.plot=c(100,100)) 

map_output